home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / pbaseiv.zip / P4WPR003.TIP < prev    next >
Text File  |  1991-12-16  |  3KB  |  80 lines
  1. Since I write for scientific and technical journals, I need
  2. to enter some unusual characters (like `') in Microsoft
  3. Word documents. These characters are available in some
  4. fonts--generally in the extended ASCII range--but not in
  5. others. In the past, I had to search through my text and
  6. manually select fonts and point sizes for each character to
  7. get them to print properly.
  8.  
  9. To simplify this tedious task, I wrote a macro that searches
  10. for a character or a string of characters. Every time it
  11. finds a match, it changes the font and point size for the
  12. desired text so it will print correctly.
  13.  
  14. After starting the macro, you'll be prompted to type a
  15. character or string to modify. If you press <Enter> at this
  16. point, the macro will end. But if you enter a character or
  17. string, you'll be prompted for a font name, such as Courier
  18. or Elite, and then for a point size, like 12 or 14. If you
  19. press <Enter> at these two prompts, the defaults will be set
  20. to 12-point Courier. You can easily change these default
  21. values by substituting a different font name or size in the
  22. macro's `set' commands.
  23.  
  24. Richard F. Laherty
  25. Terre Haute, Indiana
  26.  
  27. Editor's note: Using this macro is a lot easier than setting
  28. up special characters with style sheets. Load the Word
  29. document NF.DOC from the P4WPM directory on your PowerBase
  30. *.* Volume IV diskette, or type it in exactly as shown
  31. below. [Note: If you type the macro in manually, use
  32. <Ctrl>-[ and <Ctrl>-] to enter the left and right chevrons
  33. (« and », respectively).] Highlight the entire macro, and
  34. press <Esc>Cnf.mac<Enter> to copy the text of the macro to
  35. the glossary and name it NF.MAC. Whether you save this file
  36. for future reference or discard it, be sure to save the
  37. glossary by selecting Transfer Glossary Save and pressing
  38. <Enter>.
  39.  
  40. If you're not familiar with the fonts your printer has
  41. available, display a list of font names by selecting Format
  42. Character, moving the cursor to `Font name', and pressing
  43. <F1>. Press <Esc> to return to editing. To test the macro,
  44. load a document with characters to reformat. With the cursor
  45. at the top of the document, enter nf.mac, and press <F3> to
  46. execute the macro. Type in the text to modify, the font name
  47. you just selected, and the point size. The macro will search
  48. for and reformat every text match. Repeat this step for
  49. other text you want to change.
  50.  
  51.  
  52. This Microsoft Word macro makes finagling font changes
  53. quick and easy.
  54.  
  55. «ask string=?Search for?»
  56. «if string = ""»
  57. «quit»
  58. «endif»
  59. «ask font=?Font name?»
  60. «if font = ""»
  61. «set font = "Courier"»
  62. «endif»
  63. «ask point=?Point size?»
  64. «if point = ""»
  65. «set point = "12"»
  66. «endif»
  67. <ctrl pgup>
  68. <esc>S«string»<enter>
  69. «while found»
  70. <esc>FC<down 3>«font»<tab>
  71. «point»<enter><right>
  72. <esc>S<enter>
  73. «endwhile»
  74.  
  75. Title: Finagling Fonts in MS Word
  76. Category: WPR
  77. Issue date: Feb 1991
  78. Editor: Tom Swan
  79. Supplementary files: P4WPM\NF.DOC
  80.